(describe-char): Improve the previous change (show

font name).

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 1fea494c35bf7546acba5e11bb350a73bcb3d26b..2f11e5d9946df9ad9c9da640d0a4239c523d3107 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -586,7 +586,10 @@ as well as widgets, buttons, overlays, and text properties."
          (if (and (vectorp (nth 2 composition))
                   (vectorp (aref (nth 2 composition) 0)))
              (progn
-               (insert " by these glyphs:\n")
+               (insert " using this font:\n  "
+                       (aref (query-font (aref (aref (nth 2 composition) 0) 0))
+                             0)
+                       "\nby these glyphs:\n")
                (mapc (lambda (x) (insert (format "  %S\n" x)))
                      (nth 2 composition)))
            (insert " by the rule:\n\t("